home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / MacPerl ƒ / Perl Source ƒ / Perl / SubLaunch.a < prev    next >
Text File  |  1993-10-23  |  967b  |  44 lines
  1. **********************************************************************
  2. * Project    :    SubLaunch            -    Call ToolServer
  3. * File        :    SubLaunch.a            -    WrappedLaunchApplication
  4. * Author        :    Matthias Neeracher
  5. * Started    :    03Jan92                                Language    :    MPW Assembler
  6. * Modified    :    03Jan92    MN    
  7. * Last        :    03Jan92
  8. * 
  9. * Copyright (c) 1992 Matthias Neeracher
  10. * 
  11. *    You may distribute under the terms of the Perl Artistic License,
  12. *    as specified in the README file.
  13. * 
  14. *********************************************************************
  15.  
  16.                     CASE ON
  17.  
  18.                     INCLUDE 'Traps.a'
  19.                     
  20.                     IMPORT    RUNTIME
  21.                     
  22. WRAPPEDLAUNCHAPPLICATION    PROC    EXPORT
  23.                     LINK        A6, #0
  24.                     MOVE.W    #22, -(A7)
  25.                     SUBQ.L    #2, A7
  26.                     PEA         2(A7)
  27.                     JSR        RUNTIME
  28.                     MOVE.L    8(A6), A0
  29.                     _Launch
  30.                     MOVE.W    D0, 12(A6)
  31.                     MOVE.W    #23, -(A7)
  32.                     SUBQ.L    #2, A7
  33.                     PEA         2(A7)
  34.                     JSR        RUNTIME
  35.                     UNLK         A6
  36.                     MOVE.L    (A7)+, A0
  37.                     ADDQ.L    #4, A7
  38.                     JMP        (A0)
  39.                     ENDP
  40.                     
  41.                     END
  42.                     
  43.                     
  44.